home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 262 / SOMC Family Forum 262.iso / somc.dir / 00146_DownArrow.ls < prev    next >
Encoding:
Text File  |  1999-03-23  |  628 b   |  32 lines
  1. on mouseEnter
  2.   if not count(the windowList) then
  3.     doRollover(nothing, 2)
  4.   end if
  5. end
  6.  
  7. on mouseLeave
  8.   if not count(the windowList) then
  9.     doRollout()
  10.   end if
  11. end
  12.  
  13. on mouseDown
  14.   global LINECOUNTER
  15.   glow(27, 1)
  16.   updateStage()
  17.   set TEXTDISPLAY to the name of the member of sprite (the clickOn - 3)
  18.   set FIELDSIZE to the lineCount of member TEXTDISPLAY
  19.   repeat while the mouseDown
  20.     if LINECOUNTER < (FIELDSIZE - 12) then
  21.       scrollByLine(member TEXTDISPLAY, 1)
  22.       set LINECOUNTER to LINECOUNTER + 1
  23.       timedelay(0.10000000000000001)
  24.     end if
  25.   end repeat
  26. end
  27.  
  28. on mouseUp
  29.   glow(27, 0)
  30.   updateStage()
  31. end
  32.